home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
x68000.arc
/
SOURCE.ARC
/
ERRORX68.DEF
< prev
next >
Wrap
Text File
|
1986-01-23
|
662b
|
25 lines
DEFINITION MODULE ErrorX68;
(* Displays error messages for X68000 cross assembler *)
FROM FileSystem IMPORT
File;
EXPORT QUALIFIED
ErrorType, ErrorCount, Error, WriteErrorCount;
TYPE
ErrorType = (Dummy, TooLong, NoCode, SymDup, Undef, SymFull, Phase,
ModeErr, OperErr, BraErr, AddrErr, SizeErr, EndErr);
VAR
ErrorCount : CARDINAL;
PROCEDURE Error (Pos : CARDINAL; ErrorNbr : ErrorType);
(* Displays Error #ErrorNbr, then waits for any key to continue *)
PROCEDURE WriteErrorCount (VAR f : File);
(* Error count output to Console & Listing file *)
END ErrorX68.